SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO


CREATE Proc [dbo].[SP_TXEXTR_BANC_I02]        
/*--------------------------------------------------------------*/       
/*------ Empresa          : OFISIS S.A.                    -----*/      
/*------ Cliente   : OFISIS S.A.                           -----*/      
/*------ Sistema    : Contabilidad                         -----*/      
/*------ Modulo           : Empresa                        -----*/      
/*------ Programa         : Saldo Inicial para Extracto    -----*/      
/*------ Script           : TXEXTR_BANC                    -----*/      
/*------ Nombre      : SP_TXEXTR_BANC_I02                  -----*/       
/*------ Desarrollado por : Luz Gonzalez                   -----*/        
/*------ Fecha            : 18/10/2002                     -----*/      
/*------ Base de Datos    : MS SQL Server                  -----*/      
/*------ Version          : 7                              -----*/      
/*------ Invoca a SP      :                                -----*/      
/*--------------------------------------------------------------*/      
/*--------------------------------------------------------------*/      
/*------ Comentarios      :                                -----*/      
/*--------------------------------------------------------------*/      
/*--------------------------------------------------------------*/      
/*------ MODIFICADO 1 POR : PERCY GARCIA                   -----*/      
/*------ FECHA MODIF.     : 07/04/2004                     -----*/      
/*------ DETALLE MODIF.   : se aumento "" en la cadena     -----*/      
/*------ @VSOP_CNTA sino sale error                        -----*/      
/*--------------------------------------------------------------*/    
/*--------------------------------------------------------------*/    
/*----- Modificado 2 por : percy garcia                    -----*/    
/*----- Fecha Modifica   : 05/06/2004                      -----*/    
/*----- Detalle Modifica : usuario creacion y modif        -----*/    
/*--------------------------------------------------------------*/       
/*--------------------------------------------------------------*/       
/*------ Drop proc SP_TXEXTR_BANC_I02                      -----*/              
/*------ Grant all on SP_TXEXTR_BANC_I02 To PUBLIC         -----*/       
/*------ EXEC SP_TXEXTR_BANC_I02 '01', 1, 2003, 'T', '','' -----*/       
/*--------------------------------------------------------------*/       
@ISCO_EMPR         TD_VC_002,       
@ISCO_USUA          TD_VC_008,  
@IDFE_USUA          TD_DT_001,  
@INNU_CNTB_EMPR    TD_IN_001,      
@INNU_ANNO         TD_IN_004_ANNO,       
@ISOP_CNTA    TD_VC_001, -- T = Total, P = Parcial      
@ISCO_CNTA_INIC    TD_VC_020,       
@ISCO_CNTA_FINA    TD_VC_020      
As       
Declare        
@VSCO_OPRC_DIFE    TD_VC_003,      
@VSCO_OPRC    TD_VC_003,      
@CSCO_CNTA_EMPR    TD_VC_020,        
@CSTI_DOCU         TD_VC_003,        
@CSNU_DOCU         TD_VC_020,        
@CDFE_DOCU         TD_DT_001,        
@CSCO_MONE         TD_VC_003,        
@CSTI_OPER         TD_VC_003,        
@CNIM_MVTO_DOCU    TD_NU_016_004,        
@VNNU_CONT         TD_IN_001,      
@VSOP_CNTA    TD_VC_255      
      
If @ISOP_CNTA = 'T'      
   Select @VSOP_CNTA = ''      
Else If @ISOP_CNTA = 'P'      
   Select @VSOP_CNTA = ' And CO_CNTA_EMPR >= "' + @ISCO_CNTA_INIC +       
  '" And CO_CNTA_EMPR <= "' + @ISCO_CNTA_FINA + '" '      
      
Exec ('Declare CU_TXEXTR_BANC_I02_1 cursor       
 for       
   Select CO_CNTA_EMPR, TI_DOCU, NU_DOCU, FE_DOCU, CO_MONE, IM_MVTO_DOCU, TI_OPER       
   From TXEXTR_BANC       
   Where CO_EMPR = "' + @ISCO_EMPR + '"      
   And NU_CNTB_EMPR = ' + @INNU_CNTB_EMPR + '       
   And NU_ANNO = ' + @INNU_ANNO + ' - 1       
   And ST_FLAG = "N" ' + @VSOP_CNTA )      
      
Select @VNNU_CONT = 0      
      
/*--- Borro lo que estaba antes en la tabla de extracto ---*/      
      
EXEC('Delete From TXEXTR_BANC       
 Where CO_EMPR = "' + @ISCO_EMPR + '"      
    and NU_CNTB_EMPR = ' + @INNU_CNTB_EMPR +       
  ' and NU_ANNO = ' + @INNU_ANNO +       
  ' and NU_MESE = 0 ' + @VSOP_CNTA )      
      
open CU_TXEXTR_BANC_I02_1       
fetch CU_TXEXTR_BANC_I02_1 into @CSCO_CNTA_EMPR, @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU,       
        @CSCO_MONE, @CNIM_MVTO_DOCU, @CSTI_OPER       
      
While @@Fetch_Status = 0        
Begin         
  Select @VNNU_CONT = @VNNU_CONT + 1       
  insert into TXEXTR_BANC(CO_EMPR, NU_CNTB_EMPR, NU_ANNO, NU_MESE, CO_CNTA_EMPR,              
              NU_SECU, TI_DOCU, NU_DOCU, FE_DOCU, CO_MONE, IM_MVTO_DOCU, NU_ANNO_CONS,       
       NU_MESE_CONS, ST_FLAG, TI_OPER, CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI,       
       FE_USUA_MODI)         
   values(@ISCO_EMPR, @INNU_CNTB_EMPR, @INNU_ANNO, 0, @CSCO_CNTA_EMPR,              
          @VNNU_CONT, @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU, @CSCO_MONE, @CNIM_MVTO_DOCU,       
          NULL, NULL, 'N', @CSTI_OPER, @ISCO_USUA , @IDFE_USUA, @ISCO_USUA, @IDFE_USUA )       
      
fetch CU_TXEXTR_BANC_I02_1 into @CSCO_CNTA_EMPR, @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU,       
        @CSCO_MONE, @CNIM_MVTO_DOCU, @CSTI_OPER       
End       
close CU_TXEXTR_BANC_I02_1       
deallocate CU_TXEXTR_BANC_I02_1       
return       
/*------------------------------------- Fin -----------------------------------*/       
       
       
      
    
    
  
  
  





GO
